home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / pbmplus / ppm / libppm1.c < prev    next >
Text File  |  1996-02-28  |  4KB  |  196 lines
  1. /* libppm1.c - ppm utility library part 1
  2. **
  3. ** Copyright (C) 1989 by Jef Poskanzer.
  4. **
  5. ** Permission to use, copy, modify, and distribute this software and its
  6. ** documentation for any purpose and without fee is hereby granted, provided
  7. ** that the above copyright notice appear in all copies and that both that
  8. ** copyright notice and this permission notice appear in supporting
  9. ** documentation.  This software is provided "as is" without express or
  10. ** implied warranty.
  11. */
  12.  
  13. #include "ppm.h"
  14. #include "libppm.h"
  15. #include "pgm.h"
  16. #include "libpgm.h"
  17. #include "pbm.h"
  18. #include "libpbm.h"
  19.  
  20. void
  21. ppm_init( argcP, argv )
  22.     int* argcP;
  23.     char* argv[];
  24.     {
  25.     pgm_init( argcP, argv );
  26.     }
  27.  
  28. void
  29. ppm_readppminitrest( file, colsP, rowsP, maxvalP )
  30.     FILE* file;
  31.     int* colsP;
  32.     int* rowsP;
  33.     pixval* maxvalP;
  34.     {
  35.     int maxval;
  36.  
  37.     /* Read size. */
  38.     *colsP = pbm_getint( file );
  39.     *rowsP = pbm_getint( file );
  40.  
  41.     /* Read maxval. */
  42.     maxval = pbm_getint( file );
  43.     if ( maxval > PPM_MAXMAXVAL )
  44.     pm_error(
  45. "maxval is too large - try reconfiguring with PGM_BIGGRAYS\n    or without PPM_PACKCOLORS" );
  46.     *maxvalP = maxval;
  47.     }
  48.  
  49. pixval ppm_pbmmaxval = 1;
  50.  
  51. void
  52. ppm_readppminit( file, colsP, rowsP, maxvalP, formatP )
  53.     FILE* file;
  54.     int* colsP;
  55.     int* rowsP;
  56.     int* formatP;
  57.     pixval* maxvalP;
  58.     {
  59.     /* Check magic number. */
  60.     *formatP = pbm_readmagicnumber( file );
  61.     switch ( PPM_FORMAT_TYPE(*formatP) )
  62.     {
  63.     case PPM_TYPE:
  64.     ppm_readppminitrest( file, colsP, rowsP, maxvalP );
  65.     break;
  66.  
  67.     case PGM_TYPE:
  68.     pgm_readpgminitrest( file, colsP, rowsP, maxvalP );
  69.     break;
  70.  
  71.     case PBM_TYPE:
  72.     pbm_readpbminitrest( file, colsP, rowsP );
  73.     *maxvalP = ppm_pbmmaxval;
  74.     break;
  75.  
  76.     default:
  77.     pm_error( "bad magic number - not a ppm, pgm, or pbm file" );
  78.     }
  79.     }
  80.  
  81. #if __STDC__
  82. void
  83. ppm_readppmrow( FILE* file, pixel* pixelrow, int cols, pixval maxval, int format )
  84. #else /*__STDC__*/
  85. void
  86. ppm_readppmrow( file, pixelrow, cols, maxval, format )
  87.     FILE* file;
  88.     pixel* pixelrow;
  89.     int cols, format;
  90.     pixval maxval;
  91. #endif /*__STDC__*/
  92.     {
  93.     register int col;
  94.     register pixel* pP;
  95.     register pixval r, g, b;
  96.     gray* grayrow;
  97.     register gray* gP;
  98.     bit* bitrow;
  99.     register bit* bP;
  100.  
  101.     switch ( format )
  102.     {
  103.     case PPM_FORMAT:
  104.     for ( col = 0, pP = pixelrow; col < cols; ++col, ++pP )
  105.         {
  106.         r = pbm_getint( file );
  107. #ifdef DEBUG
  108.         if ( r > maxval )
  109.         pm_error( "r value out of bounds (%u > %u)", r, maxval );
  110. #endif /*DEBUG*/
  111.         g = pbm_getint( file );
  112. #ifdef DEBUG
  113.         if ( g > maxval )
  114.         pm_error( "g value out of bounds (%u > %u)", g, maxval );
  115. #endif /*DEBUG*/
  116.         b = pbm_getint( file );
  117. #ifdef DEBUG
  118.         if ( b > maxval )
  119.         pm_error( "b value out of bounds (%u > %u)", b, maxval );
  120. #endif /*DEBUG*/
  121.         PPM_ASSIGN( *pP, r, g, b );
  122.         }
  123.     break;
  124.  
  125.     case RPPM_FORMAT:
  126.     for ( col = 0, pP = pixelrow; col < cols; ++col, ++pP )
  127.         {
  128.         r = pbm_getrawbyte( file );
  129. #ifdef DEBUG
  130.         if ( r > maxval )
  131.         pm_error( "r value out of bounds (%u > %u)", r, maxval );
  132. #endif /*DEBUG*/
  133.         g = pbm_getrawbyte( file );
  134. #ifdef DEBUG
  135.         if ( g > maxval )
  136.         pm_error( "g value out of bounds (%u > %u)", g, maxval );
  137. #endif /*DEBUG*/
  138.         b = pbm_getrawbyte( file );
  139. #ifdef DEBUG
  140.         if ( b > maxval )
  141.         pm_error( "b value out of bounds (%u > %u)", b, maxval );
  142. #endif /*DEBUG*/
  143.         PPM_ASSIGN( *pP, r, g, b );
  144.         }
  145.     break;
  146.  
  147.     case PGM_FORMAT:
  148.     case RPGM_FORMAT:
  149.     grayrow = pgm_allocrow( cols );
  150.     pgm_readpgmrow( file, grayrow, cols, maxval, format );
  151.     for ( col = 0, gP = grayrow, pP = pixelrow; col < cols; ++col, ++gP, ++pP )
  152.         {
  153.         r = *gP;
  154.         PPM_ASSIGN( *pP, r, r, r );
  155.         }
  156.     pgm_freerow( grayrow );
  157.     break;
  158.  
  159.     case PBM_FORMAT:
  160.     case RPBM_FORMAT:
  161.     bitrow = pbm_allocrow( cols );
  162.     pbm_readpbmrow( file, bitrow, cols, format );
  163.     for ( col = 0, bP = bitrow, pP = pixelrow; col < cols; ++col, ++bP, ++pP )
  164.         {
  165.         r = ( *bP == PBM_WHITE ) ? maxval : 0;
  166.         PPM_ASSIGN( *pP, r, r, r );
  167.         }
  168.     pbm_freerow( bitrow );
  169.     break;
  170.  
  171.     default:
  172.     pm_error( "can't happen" );
  173.     }
  174.     }
  175.  
  176. pixel**
  177. ppm_readppm( file, colsP, rowsP, maxvalP )
  178.     FILE* file;
  179.     int* colsP;
  180.     int* rowsP;
  181.     pixval* maxvalP;
  182.     {
  183.     pixel** pixels;
  184.     int row;
  185.     int format;
  186.  
  187.     ppm_readppminit( file, colsP, rowsP, maxvalP, &format );
  188.  
  189.     pixels = ppm_allocarray( *colsP, *rowsP );
  190.  
  191.     for ( row = 0; row < *rowsP; ++row )
  192.     ppm_readppmrow( file, pixels[row], *colsP, *maxvalP, format );
  193.  
  194.     return pixels;
  195.     }
  196.